Filename: /text/sbasic/shared/03050200.xhp

Err Function [Runtime]
Err 関数 [実行時](hd_id3156343.1)

Returns an error code that identifies the error that occurred during program execution.
プログラム実行中に発生したエラー内容の特定に利用するエラーコードを返します。(par_id3150541.2)

Syntax:
構文:(hd_id3149656.3)

Err
Err(par_id3154123.4)

Return value:
戻り値:(hd_id3147229.5)

Integer
整数(par_id3150869.6)

Parameters:
パラメータ:(hd_id3153193.7)

The Err function is used in error-handling routines to determine the error and the corrective action.
エラーの内容を特定して問題点を修正する場合、Err 関数を使ったエラー処理ルーチンが利用できます。(par_id3149561.8)

Example:
例:(hd_id3147317.9)

sub ExampleError
sub ExampleError(par_id3153727.10)

on error goto ErrorHandler REM Set up error handler
on error goto ErrorHandler REM エラーハンドラの設定(par_id3147426.11)

Dim iVar as Integer
Dim iVar as Integer(par_id3163710.12)

Dim sVar As String
Dim sVar As String(par_id3153093.13)

REM Error occurs due to non-existent file
REM 存在しないファイルにアクセスするとエラーが発生(par_id3149481.14)

iVar = Freefile
iVar = Freefile(par_id3153190.15)

Open "\file9879.txt" for Input as #iVar
Open "\file9879.txt" for Input as #iVar(par_id3146120.16)

Line Input #iVar, sVar
Line Input #iVar, sVar(par_id3155308.17)

Close #iVar
Close #iVar(par_id3153142.18)

exit sub
exit sub(par_id3149665.19)

ErrorHandler:
ErrorHandler:(par_id3154942.20)

MsgBox "Error " & Err & ": " & Error$ + chr(13) + "At line : " + Erl + chr(13) + Now , 16 ,"an error occurred"
MsgBox "Error " & Err & ":" & Error$ + chr(13) + "At line :" + Erl + chr(13) + Now , 16 ,"an error occurred"(par_id3145646.21)

end sub
end sub(par_id3155418.22)